home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilstem / bazic / bazc.bat < prev    next >
Encoding:
DOS Batch File  |  1988-11-18  |  1.8 KB  |  99 lines
  1. echo off
  2. bazic run
  3.  
  4. rem                         BAZIC executing file BAZC
  5. rem  
  6. rem  BAZIC.EXE runs this BAZC.BAT file to supplement the functions of
  7. rem  batch commands.  The functions are 
  8. rem  
  9. rem  ON ERRORLEVEL GOTO/GOSUB               RETURN
  10. rem  INKEY/OUTKEY                           GET
  11. rem  STOP NEWPASSWORD                       NEW STACK
  12. rem  
  13. rem  see the accompanying document for details
  14. rem  
  15. rem  
  16. echo on
  17. goto loop
  18. :help
  19. rem type "M" to tell you what month it is
  20. rem type "A" for my address
  21. rem type (esc) to get out                          "H" for this help
  22. bazic return from help
  23.  
  24. :loop
  25. rem type "H" for help
  26. bazic inkeyoutkey mM aA hH
  27.  
  28. bazic on error gosub exit month address help
  29.  
  30.  
  31. goto loop
  32. :month
  33. bazic get month
  34.  
  35. bazic on error gosub exit jan feb mar april may june july aug sept oct nov dec
  36.  
  37.  
  38. bazic return to menu
  39.  
  40. :jan
  41. rem it's January.  Happy new year!
  42. bazic return from janus
  43.  
  44. :feb
  45. rem it's February.  What a short month.
  46. bazic return from fabulous feb.    NOTE: each return is distinctly different.
  47.  
  48. :mar
  49. rem it's March.  March, don't run.
  50. bazic return from the army
  51.  
  52. :april
  53. rem it's December.  Ha ha.  April fool.
  54. bazic return from april
  55. :may
  56. rem it's May.  Bridal suite and all.
  57. bazic return from may day
  58.  
  59. :june
  60. rem it's June.  Alter and all.
  61. bazic return from june
  62.  
  63. :july
  64. rem it's July.  Independence.
  65. bazic return to dependency
  66.  
  67. :aug
  68. rem it's August, Augustus.
  69. bazic return from the heat
  70.  
  71. :sept
  72. rem it's September.  Brrrr.
  73. bazic return, you wonderful summer
  74.  
  75. :oct
  76. rem it's Oktoberfest time!
  77. bazic return?  Never!
  78.  
  79. :nov
  80. rem it's a chilly November
  81. bazic return to ice
  82.  
  83. :dec
  84. rem it's Xmas December
  85. bazic return those useless gifts.
  86.  
  87.  
  88. :address
  89. type bazc
  90. rem  type any key to continue
  91. bazic inkey
  92.  
  93. bazic return from address
  94.  
  95. :exit
  96. rem bye
  97.  
  98.  
  99.